<h2>Binned peaks</h2>
<table border cellspacing="0">
%   foreach ( @matr ) {
%     my ($label, @data) = split "\t";
%     $label =~ s/\"//g;
   <tr>
     <td><% $label %></td>
%     foreach my $value ( @data ) {
%       if ( $label eq "length" ) {
     <td><% sprintf("%6.2f", $value) %></td>
%       } else {
     <td><% sprintf("%6.2g", $value) %></td>
%       }
%     }
%     if ( $label eq "length" ) {
     <td><b>Total</b></td>
%     } else {
%       my $sum = 0;
%       foreach (@data) {$sum += $_};
     <td><b><% sprintf("%4.2g", $sum) %></b></td>
%     }
   </tr>
%   }
</table>

<h2>Graphical view of binned peaks</h2>
<img src="plot_cluster.html">

<h2>Bray-Curtis distance matrix for Mega</h2>

<a href="matrix.meg">Download</a>
<pre>
<% `$TRFLP/bin/braycurtis < $TRFLP::tmpdir/ClusBinMatrix.txt` %>
</pre>
<%init>
  my @matr = `cat $TRFLP::tmpdir/ClusBinMatrix.txt`;
</%init>
